{ split($1, a, "_"); print a[1] "\t" a[2] "\t" a[3] "\t" a[4] "\t" $0 }

